perm filename MAXDEP.LAP[1,JRA] blob sn#030166 filedate 1973-03-21 generic text, type T, neo UTF8
NIL 
(LAP MAXDEPTH SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
TAG1 	(HLRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(CAME 1 (SPECIAL ESCAPE)) 
	(JRST 0 TAG10) 
	(HLRZ@ 1 -1 P) 
	(CALL 1 (E CDDR)) 
	(JRST 0 TAG7) 
TAG10 	(HLRZ@ 1 -1 P) 
	(HRRZ@ 1 1) 
TAG11 
TAG7 	(MOVE 2 0 P) 
	(CALL 2 (E MAXDEPTH1)) 
	(JUMPE 1 TAG6) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG2) 
TAG6 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JUMPN 1 TAG1) 
TAG2 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL